home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / disasm.tar / disasm / get.c < prev    next >
C/C++ Source or Header  |  1990-04-25  |  441b  |  38 lines
  1. #include "dis48.h"
  2.  
  3. Nybble
  4. #ifdef ANSI
  5. GetNybble(char *mem, NAddr addr)
  6. #else
  7. GetNybble(mem, addr)
  8. char    *mem;
  9. NAddr    addr;
  10. #endif
  11. {
  12.     char    n;
  13.     
  14.     n = mem[addr >> 1];
  15.     if (addr & 1)
  16.         n >>= 4;
  17.         
  18.     return(n & 0xf);
  19. }
  20.  
  21. int
  22. #ifdef ANSI
  23. GetInt(char *mem, NAddr *addr, int n)
  24. #else
  25. GetInt(mem, addr, n)
  26. char    *mem;
  27. NAddr    *addr;
  28. int    n;
  29. #endif
  30. {
  31.     int    i, t;
  32.     
  33.     for (i = 0, t = 0; i < n; i++)
  34.         t |= GetNybble(mem, (*addr)++) << (i * 4);
  35.         
  36.     return(t);
  37. }
  38.